home *** CD-ROM | disk | FTP | other *** search
/ The Complete Work of Mahatma Gandhi / The Complete Work of Mahatma Gandhi-CD interactive.iso / mac / Ganmac / ic.dxr / 00039_Field_39.txt < prev    next >
Text File  |  1999-05-30  |  3KB  |  123 lines
  1. on mouseup
  2.   global searchw,currentline,tlines,j,chgicolor,tenginew,tchars,i,J,qqq
  3.   set tenginew to the number of words in field "engine"
  4.   set the forecolor of  line i of field "san" to 35
  5.   put field "engine" into searchw
  6.   put field "san" into xx
  7.   
  8. SET THE FORECOLOR OF LINE I OF FIELD "SAN" TO 35
  9. SET THE FORECOLOR OF LINE J OF FIELD "SAN" TO 35
  10. UPDATESTAGE
  11.   
  12.   
  13.   
  14.   
  15.   
  16.   
  17.   if the scrolltop of member "san" >0 then
  18.     set the scrolltop of member  "san" to 0
  19.   end if
  20.   
  21.   
  22.   
  23.   
  24.   
  25.   
  26.   
  27.   if qqq = 0  then
  28.     Alert "Word not in Dictionery"
  29.     exit
  30.   else
  31.     
  32.     if xx contains searchw then 
  33.       set i to 0
  34.       set qqq to 0
  35.       --    put the  number of line of word "kheda" of field "san"
  36.       set tlines to the number of lines of field "san"
  37.       repeat with i=currentline+1 to tlines
  38.         if i=tlines then
  39.           set currentline to 0
  40.           set i to 0
  41.         else
  42.           if line i  of field "san" contains searchw then
  43.             
  44.             set twords to the number of words in line i of field "san"
  45.             repeat with w = 1 to twords
  46.               if w> twords then
  47.                 set i to i+1
  48.                 set currentline to i
  49.                 set chgicolor to i
  50.                 set chgwordcolor to w
  51.               end if
  52.               --             set compword to word w of line i of field "san"
  53.               if  string(word w of line i of field "san") starts string(word 1 to 1 of searchw) then
  54.                 set pos to w
  55.                 set ww to pos
  56.                 repeat while pos<(ww+tenginew)
  57.                   set the forecolor of word pos of line i of field "san" to 21504
  58.                   updatestage
  59.                   set pos to pos+1
  60.                   set currentline to i
  61.                 end repeat
  62.                 scrollByLine member "san", i-2
  63.                 exit
  64.               end if
  65.             end repeat
  66.           end if
  67.           --          set currentline to i
  68.           --          set chgicolor to i
  69.           --          set chgwordcolor to w
  70.           
  71.           
  72.           
  73.         end if
  74.       end repeat
  75.     else
  76.       
  77.       ALERT "WORD NOT FOUND IN DICTIONARY"
  78.     end if
  79.   end if
  80. end if
  81.  
  82.  
  83.  
  84.  
  85.  
  86. end
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95. ON MOUSEDOWN
  96. GLOBAL I,J,qqq,tlines,searchw
  97. --SET THE FORECOLOR OF LINE I OF FIELD "SAN" TO 35
  98. --SET THE FORECOLOR OF LINE J OF FIELD "SAN" TO 35
  99. --UPDATESTAGE
  100.  
  101.  
  102.  
  103. global searchw,currentline,tlines,j,chgicolor,tenginew,tchars,i,J,qqq
  104. set tenginew to the number of words in field "engine"
  105. --set the forecolor of  line i of field "san" to 35
  106. put field "engine" into searchw
  107. put field "san" into xx
  108.  
  109.  
  110. set i to 0
  111. set tlines to the number of lines of field "san"
  112. repeat with i=i+1 to tlines
  113. if line i  of field "san" contains searchw then
  114. set twords to the number of words in line i of field "san"
  115. repeat with w = 1 to twords
  116. if string(word w of line i of field "san") starts string(word 1 to 1 of searchw) then
  117. set qqq to i
  118. end if
  119. end repeat   
  120. end if
  121. end repeat
  122.  
  123. END